﻿Imports System.Data.SqlClient
Imports Microsoft.ApplicationBlocks.Data.SqlHelper

Public Class Proveedores
    Public Function ObtenerProveedores(ByVal ParamArray Dat() As String)
        Dim DS As New DataSet
        DS = ExecuteDataset(My.Settings.MiCadena, CommandType.StoredProcedure, "ProveedoresObtener", _
        New SqlParameter("@CodPro", Dat(0)), New SqlParameter("@NomPro", Dat(1)))
        Return DS
    End Function

End Class
